home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 21 / Cream of the Crop 21 (Terry Blount) (October 1996).iso / os2 / freetype.zip / ttvars.pas < prev    next >
Pascal/Delphi Source File  |  1996-09-07  |  2KB  |  57 lines
  1. {***************************************************************************}
  2. {*                                                                         *}
  3. {* The Portable TrueType Engine - Copyright 1996 David TURNER              *}
  4. {*_________________________________________________________________________*}
  5. {*                                                                         *}
  6. {*                                                                         *}
  7. {*   TTVars : A Very simple unit to declare the engine's variables         *}
  8. {*            and layout.                                                  *}
  9. {*                                                                         *}
  10. {*                                                                         *}
  11. {***************************************************************************}
  12.  
  13. unit TTVars;
  14.  
  15. interface
  16.  
  17. uses TTTypes;
  18.  
  19. const
  20.  
  21.   (* Rounding Mode constants *)
  22.  
  23.   TTRoundOff          = 0;
  24.   TTRoundToHalfGrid   = 1;
  25.   TTRoundToGrid       = 2;
  26.   TTRoundToDoubleGrid = 3;
  27.   TTRoundUpToGrid     = 4;
  28.   TTRoundDownToGrid   = 5;
  29.   TTRoundSuper        = 6;
  30.  
  31.   (* Touch flags masks *)
  32.  
  33.   TTFlagOnCurve       = 1;
  34.   TTFlagTouchedX      = 2;
  35.   TTFlagTouchedY      = 4;
  36.   TTFlagTouchedBoth   = TTFlagTouchedX or TTFlagTouchedY;
  37.  
  38. var
  39.   GS        : TGraphicsState; (* Current Graphics State record  *)
  40.                               (* NOTE : this is not a pointer ! *)
  41.  
  42.   CVT       : PShortArray;   (* Pointer to the current CVT *)
  43.   CvtSize   : int;           (* Size of the current CVT    *)
  44.  
  45.  
  46.  
  47.   Scale1,               (* These values are used to scale quickly *)
  48.   Scale2    : LongInt;  (* from EM to pixel coordinates           *)
  49.  
  50.   PointSize : F26dot6;  (* The PointSize in 26.6 fixed point *)
  51.  
  52.  
  53.  
  54. implementation
  55.  
  56. end.
  57.